source ( "{$html_root}/cgi-lib/R/ep.io.R" );
source ( "{$html_root}/cgi-lib/R/clustering_comparison.R" );

srcdata          = "{$srcdata}"
clustering1.file = "{$clustering1}"
clustering2.file = "{$clustering2}"
index.method     = "{$indexmethod}"
outputplotfile   = "{$outputplotfile}"

srcdatamatrix <- ep.readBin ( srcdata )
clustering1 <- read.table(clustering1.file, header=FALSE)
clustering2 <- read.table(clustering2.file, header=FALSE)

flat ( srcdatamatrix, clustering1, clustering2, index.method, outputplotfile )
